Sub 새로고침()

    Dim i As Long
    Dim 피벗수 As Long
    
    피벗수 = ActiveSheet.PivotTables.Count
    
    For i = 1 To 피벗수

        ActiveSheet.PivotTables(i).PivotCache.Refresh

    Next

End Sub